home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / copycomb / ccwrap.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-25  |  1.5 KB  |  47 lines
  1. VERSION 5.00
  2. Object = "{7C231ACF-6C29-11D2-A431-444553540000}#1.0#0"; "WRAPPER.OCX"
  3. Object = "{4A6838E0-0CF9-11D2-9098-006097338A58}#1.1#0"; "CCOM.DLL"
  4. Begin VB.Form Form1 
  5.    Caption         =   "CopyCom Wrapper Demo"
  6.    ClientHeight    =   3870
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   5325
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3870
  12.    ScaleWidth      =   5325
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin WrapperObj.Wrapper Wrapper1 
  15.       Height          =   3135
  16.       Left            =   120
  17.       TabIndex        =   1
  18.       Top             =   120
  19.       Width           =   5055
  20.       _ExtentX        =   8916
  21.       _ExtentY        =   5530
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Copy"
  25.       Height          =   375
  26.       Left            =   3720
  27.       TabIndex        =   0
  28.       Top             =   3360
  29.       Width           =   1335
  30.    End
  31.    Begin CCOMLibCtl.CopyCom CopyCom1 
  32.       Left            =   1920
  33.       OleObjectBlob   =   "ccwrap.frx":0000
  34.       Top             =   3360
  35.    End
  36. Attribute VB_Name = "Form1"
  37. Attribute VB_GlobalNameSpace = False
  38. Attribute VB_Creatable = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Private Sub Command1_Click()
  42.    Dim ep As String
  43.    ep = IIf(Right$(App.Path, 1) <> "\", App.Path + "\", App.Path)
  44.    'Create gif copy of Activex wrapper control.
  45.    Call CopyCom1.CopyCom(Wrapper1.Object, ep + "ccwrap.gif")
  46. End Sub
  47.